Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/vb_mpu/mpudemo.frm

Text File | 1995-09-06 | 2KB | 72 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00004080&
   Caption         =   "MpuDemo"
   ClientHeight    =   1980
   ClientLeft      =   3000
   ClientTop       =   3435
   ClientWidth     =   5370
   Height          =   2385
   Icon            =   MPUDEMO.FRX:0000
   Left            =   2940
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   1980
   ScaleWidth      =   5370
   Top             =   3090
   Width           =   5490
   Begin CommandButton Command2
      Caption         =   "Exit"
      Height          =   495
      Left            =   3000
      TabIndex        =   1
      Top             =   1320
      Width           =   1455
   End
   Begin CommandButton Command1
      Caption         =   "Demo"
      Height          =   495
      Left            =   840
      TabIndex        =   0
      Top             =   1320
      Width           =   1455
   End
   Begin TextBox Text1
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Text            =   "            MpuDemo - Press Demo to hear Midi demo"
      Top             =   720
      Width           =   4935
   End
   Begin PictureBox Picture1
      BackColor       =   &H0000C000&
      Height          =   495
      Left            =   2400
      Picture         =   MPUDEMO.FRX:0302
      ScaleHeight     =   465
      ScaleWidth      =   465
      TabIndex        =   3
      Top             =   120
      Width           =   495
   End
End
Sub Command1_Click ()
Call MpuPlay
End Sub

Sub Command2_Click ()
 RSTMPU
 End
End Sub

Sub Form_Load ()
  RSTMPU
End Sub

Sub Form_Unload (Cancel As Integer)
  RSTMPU
  End
End Sub